(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     57070,       1048]
NotebookOptionsPosition[     53981,        972]
NotebookOutlinePosition[     54404,        988]
CellTagsIndexPosition[     54361,        985]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
M2load1D
 Inertia load with two inertias\
\>", "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.519281468671875*^9, 3.519281469359375*^9}, 
   3.5226043241875*^9, 3.522604355609375*^9, 3.525534334828125*^9, 
   3.533225155609375*^9, {3.535557679125*^9, 3.535557691484375*^9}, 
   3.571933669207423*^9, 3.630671889424964*^9, {3.630671928290051*^9, 
   3.6306719284500513`*^9}, 3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG.mx"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5772037650720577`*^9, 3.5772037650780582`*^9}, {
   3.611474457184202*^9, 3.611474523938877*^9}, {3.6114745588913717`*^9, 
   3.61147456057154*^9}, 3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Mechanic\>\"", ",", "\"\<Linear\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, 3.6031909973287797`*^9, 
   3.6057717887213297`*^9, {3.605771829393656*^9, 3.605771830929744*^9}, 
   3.6058530990363216`*^9, {3.621138851005574*^9, 3.621138863716845*^9}, {
   3.626686112671085*^9, 3.6266861209310846`*^9}, {3.6273758738899097`*^9, 
   3.627375907312579*^9}, {3.6278060251438417`*^9, 3.627806031567667*^9}, {
   3.6306734117143235`*^9, 3.630673413047326*^9}, 3.6306735361976786`*^9}],

Cell["\<\
Two masses with an extra node between them. Limitations on the distance x3 \
can be introduced.\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6306735361976786`*^9}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@00051@0@0006`0000000001000014F00083@00
00000000000P;`00?R000215CDH00040D5000<H1000800000000000000000000f2L0090c003H0000
5`40000000000000000005a;0`1X@`@0AP0002`0000P0000ADe6:`500@0L00004000004@`=/00000
/0@00;0400160000G00005000015CDH[8T0400`0000000007T0100`000000000940100`000000000
8D0700`000000000<4020100000400000020?`A0000<0000000001H0000<0000600000X0000@0000
0000000000090000400004@F000l3`009@0000`0000>0020DP00070100010000>?ooo`0000000000
000009010000000014004U@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@1^00000000000000000000
00000000000000000000000000000:@000000040000100000@000040000200000P000000003ooooo
ooooo`0002000000ooooooooool0000P00000?oooooooooo00000000000000000000004000000000
00000040000100000000000000000040oooo00000100000000000000000000000000000000000000
=BD0000020000000000000<0003oo`60ool009m;0H000?oo0440000800002000AaJ@0@000P860`D4
1@8318Mj0200002020000000003o0@00000005@0J@1]06D0I7H02000000U000030000040000B0000
30000040000H000030000000009D0000E000000000040000FP000>@000010000R8L7@=551d000000
^0000040001<00001000000000000000A1H003`?001@0000800005/000160000:00001`00017A4U3
0P00000000000000A1H003`?00000000AP0002P0000L0000AdA9@`80003oooooooooodDF000m3`00
000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`8000061@00Y`<000d9000o1`00
000004H0000/0@00804004E=AR/Z@000900001P00000080o000000000000080o000000000008@002
@00003@000014<3K000005h000000000EEF5@@80000200000P000000044200000A30f`000000003o
24010jP0002L00000A30fa0000000000iZRdA:/:K4AABJY4Z`Y/A03PXDA<gGa40>2QA3W>R4@0h:54
ao7CA03PXDAJDMi4DDVZA:^jiTCVZ;A4Zk[VA>?P1TF[^^I4[A0<AJ^jiTAEAA15FU7NA5E544G7lM=4
EDD@ACW>R4AEAA15C=elA:d@34F[2Va4hn06AJ/:K4@00`<30@<30`430`<10`>35D01010000040000
0000024000080000HP0000`000010000900002@00000000n000000000000000n0000000000020000
G`0003P000020000>0000000000h0000000000000@250000000000000000000000000000000U0000
30000080000U0000300000D0080k0000200001/0000@00009bd007hM001H0000:000000000000000
ooooooooool30000SbYn7G@XV1md:30R=P000100001d:000nC@005P0000X000000000000003ooooo
ooooo`<0001d:94gSbZ[>BL]ZcTf0000400006e3002[>@00F00002P00000000000000?oooooooooo
0`0000E6ZcTOB94g7dSi=3H0000@00007dP0030R001H0000:000000000000000ooooooooool30000
7dRH7`E6OQe]@ghM?@0000P0000l000020000400000H00001@D00:H3000>2@00?`L002D0000<0000
1`00P2D0000<00000000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<0000
0P000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U3
0`0004H0000X0000700004M4BD<20000>@d00:L3000n4@00?`L0000000160000;04002010015CDH[
:T0002@0000H00000020?`00000000000020?`000000000024020T00000d00000A30f`00001N0000
000005EEQD4200000P000080000000110P00004@`=/000000000o`Q00`>X0000W000004@`=/@0000
00000<YiGDF[2Va4odUHAJ/:K4AE5EA5C=elA5DEE4DicXQ4EAEDALOaddAE5EA5FU7NA?m9F4F[^^I4
bWUMAJ^jiTC5mHA5Zk[VA:^=QdF[^^I40:R9AEYAgT@0Z8U5ao7CA02XRDDicXQ40:R9ADcMO4B[SHM5
Z`Y/A<GeQ4F[2Va400<30`430`<10`<30@<3PaE00`0@000010000080000Q000020000680000<0000
0@0002@0000T00000020?P00000000000020?P00000000000P0005l0000h00000P0003P000000000
>000000000000040@`0000000000000000000000000000009@0000`0000200009@0000`000050020
>`0000P0000K0000400005dg002o3P00F00002P00000000000000?oooooooooo0`00014f_`h4=L`?
13DH4CH0000@000013D007dJ001H0000:000000000000000ooooooooool3000013G96a4feQaM=mHL
=P000100001i@P00eQ`005P0000X000000000000003oooooooooo`<00035@mHLdTC96m94OAXf0000
40000=94000H4@00F00002P00000000000000?oooooooooo0`000=94c0o5@kl>ND:o3Sd000080000
?00000P000100000600003L=002V0`00?Q4003l7000U0000300000L0080U000030000000080T0000
90000000P400000000000000P400000000000080000X000030000080000R000030000?oooom60000
700001000015CDH[140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U3
0P000?`8000l1P003PT003d900000000AP000:@0002H0000ADe6:bY0000T000060000000P3l00000
00000000P3l00000000000Q0108d0000:000004@`=/0000060000000001EEHE10P00000004414<3K
000000000?l8@0D3;000020000014<3K0P000000001EAA150:38A:YB44EE?A=5004001E01@0@0000
100000@0000Q000020000680000<00000@0002@0000T00000000?P00000000000000?P0000000000
0P0005l0000h00000P0003P000000000>000000000000P40Q@000000000000000000000000000000
9@0000`0000200009@0000`000050020E`0002@0003j2000>`H000l9000m2@000P0001m8938VB9]9
9@0000`0000700209@0000`000000020900002@00000001100000000000000110000000000020000
:00000`0000200008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000
200004M4BD<30000AP0002P0000L0000AdA9@`80000d3@00?PH004L=000m2@00000004H0002T0000
V00004E=AR/Z@000900001P00000080o000000000000080o000000000008@0H2=00002P000014<3K
000001P000000000EEF5@@80000000110A30f`000000003o24070b`0000P00000A30f`8000000000
Zm9CAEGEb4@0h5=5ECdCA@01000E@0L0400000@0000600008@0000P0001R000030000040000T0000
9000000003h000000000000003h0000000000080001O0000>0000080000h0000000003P000000000
008108D0000000000000000000000000000002D0000<00000P0002D0000<00001@00P5L0000T0000
<`d003`600173@00?@T00080003VJC8bk6VKBBD0000<00001`00P2D0000<00000000P2@0000T0000
0000@@00000000000000@@00000000000P0002P0000<00000P000280000<0000ooooodH0000L0000
400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000700004M4BD<20000
nPP00448001;3@00o@P0000000160000I04005P10015CDH[:T0002@0000H00000020?`0000000000
0020?`000000000024080_@0003X00000A30f`00000N6000000005EEQD7o0000o`00008000000011
F000004@`=/000000@000080000001110000000000000000000P@@00P3l000000000000000000000
7000004@`=/30000060000D0m_l00000noofo`01P@1H00000A30f`00000100000P00000044400000
00000000000002110020?`000000000000000000000L00000A30f`<00000H0001@3fo`00003kooKo
0061004@`=/000000000o`Q02@</00008000004@`=/20000000005E544D0n0U5EAEDAEGM2DD00@00
5D090100000400002000024000080000HP0000`000010000900002@00000000n000000000000000n
0000000000020000G`0003P000020000>0000000000h00000000000B0@0800000000000000000000
00000000000U000030000080000W0000600000<00000000000000000000U0000300000<0000C0000
30000080001K0000H000008900182000@`d00?@8000300003@0000D00004000010000<m<]4AGIJY4
EfD`ALm<>DG?C;A4EDfAAam8n4ACCEa2EDfAAm5TDd87J^]4dfB8Am5TDd8C000030000040000U0000
30000000080U0000300000L0080T00009000000004400000000000000440000000000080000X0000
30000080000R000030000?oooom60000700001000015CDH[140000`000000000AP0001@000080000
AdA9@`<000160000:00001`00017A4U30P0005l9003i1P00N`d00</800000000AP0001@000080000
AdA9@`<0000Q0000200001h0000H0000/PT003H7000X3@00S@P00580001`0@000P000=Cnool00000
00000000002@0@000@0000A0019D06T0K@1U07<0801>06D0M`0P0580K`1]0640KP00000000000000
00000000000000000000000000000000002T0040000100000P00000000000000ooooooooool0000P
00000?oooooooooo00008000003oooooooooo`000000000000000000000100000000004000010000
0@0000000000000000010?ooo`3d000@00000000000000000000000000000000000003DU000000P0
00000000000000000000000000030000ool1P?oo002OB`60003oo`110000200000P004LFT0400082
1P<510D20`B7NP0P0000P0P000000000o`400000001D06T0K@1U06Af00P000009@0000`000020000
DP00070100040000@?ooo`0000000000000009010001000014004U@0J@1]06D0L`0P04h0I@1g0200
DP1_06d0H@1^0000000000000000000000000000000000000000000000000:@0H>XB0>3c3@2Q>NMg
C5TZ200000000000C>XB00000014gA80S=dB026W]33DjQ80S=dB083Z4P1<FBX8Z:Jd<040001]R[@`
C5TZ2;0:X02d6b08F4>j<6/DeC1h6402V>TB00000000000000000000002d6b0800000000X00`=5P3
l=dB050S831I8b0`A`0003TS832d6b08A`000=6;132d6b08000000<0003oo`60ool009m;0H000?oo
0440000800002000AaJ@0@000P860`D41@8318Mj0200002020000000003o0@00000005@0J@1]06D0
I7H02000000U0000300000@0000U0000300000@0001B0000L04000D0003Do_oo0000000000000000
T04000000004@00BE01Y06d0I@1c0200CP1U07L0801B06l0K@1Q06h0000000000000000000000000
000000000000000000000000Y0002000Q@000=OooolM0000H0000300002Poooo1@000:3M4P2XoP@`
5`0001<0002@0000o0R70;0_Y03_7P00000E00002@0000/0000500006@0000D000000000<P0000X0
2@0003SN4P2LgA802@0004l01C02000000000?`8Q`2`;j@0S=hB090000000000000D0840003XRR80
j=lB00n2mGNHOoEg0`000?oo0H3oo`00Wd/1P000ool0@@0000P0000800175Y0100020PH31@@50P<4
QgX080000808000000000?l100000000E01Y06d0I@1TMP08000002D0000<00001@000580001`0@00
1P00043oool0000000000000002@0@00000000A0019D06T0K@1U07<0801>06D0M`0P0580K`1]0640
KP0000000000000000000000000000000000000000000000002T0008003@0000_oooobd0002F0000
B`0005Goool50000X=dB0:Sn130T00004`000900003l28L0LTjT0>lN00000240000?00004@0000P0
000X000020000000001>00003`0?0000>=hB09cM4P0?0000C`05<08000000000o0R7079>Y02<gQ80
T0000000002<gQ80LTjT09_j130C0000<4nT0;?Q4P030000ool1P?oo002OB`60003oo`1100002000
00P004LFT04000821P<510D20`B7NP0P0000P0P000000000o`400000001D06T0K@1U06Af00P00000
9@0000`0000600009@0000`0000600009@0000`0000500004P0000`0000100009@0000`000020000
E00005@0003H2@00@PL003/:002<20000@0008R71d3AA@M0f0T004d800010000C00000@0002b2@00
=PL002P=002=2000D00002d0001T0000E00005@0000l2P00@PL00<0:002<20000@0008R71d3AA@M0
?0X004d800010000C00000@0002b2@00=PL002P=002=2000D00007H0002500009@0000`000040000
E00005@000312P00b`L0020;002<20000@0008R71d3AA@M0`@X007L800010000C00000@0002b2@00
=PL002P=002=2000D00003<0001P00009@0000`000020000E00005@0000N2`00@PL006/;002<2000
0@0008R71d3AA@M08@/004d800010000C00000@0002b2@00=PL002P=002=2000D00002`0001;0000
E00005@0001/2`00@PL00<l;002<20000@0008R71d3AA@M0K0/004d800010000C00000@0002b2@00
=PL002P=002=2000D00002d0001T0000E00005@000352`00@PL005@<002<20000@0008R71d3AA@M0
d0/004d800010000C00000@0002b2@00=PL002P=002=2000D00007P0K`2500009@0000`000060000
E00005@0001E3000b`L00;@<002<20000@0008R71d3AA@M0E@`007L800010000C00000@0002b2@00
=PL002P=002=2000D00003<0001P00009@0000`000050000E00005@0002e3000@PL002L=002<2000
0@0008R71d3AA@M0]@`004d800010000C00000@0002b2@00=PL002P=002=2000D000020000280000
8P0000`0003oooooAP0002P0000L0000AdA9@`80003K1@00HP@00>@8003M1@00000004H0000D0000
200004M4BD<300008@0000P0000N000060000=L5001c1000j0P00<`5000U0000300000@0000B0000
30000040000U000030000080000H000030000000009D0000E0000?`5001o1000e0H00<X500010000
R8L7@=551d3l1@00RPD00040001<000010000=L5001c1000j0P00<`5001@0000K@0aCMT0000U0000
300000H0001D0000E0000=D600081@00=0L00</500010000R8L7@=551d3E1P00]0D00040001<0000
10000=L5001c1000j0P00<`5001@0000<@000600000U0000300000@0001D0000E00003D700081@00
U`L00</500010000R8L7@=551d0e1`00]0D00040001<000010000=L5001c1000j0P00<`5001@0000
800006<0000R000030000?oooom60000:00001`00017A4U30P0000l>001R100061400=d500000000
AP0001@000080000AdA9@`<0000Q0000200001h0000H00002`h007<4000L4@00c0D00180000<0000
0@0002D0000<00000P0001P0000<000000000U@0001D0000<0h007l400083`00bPD000400028Q`M0
dDD7@30>002:1@000@0004`0000400002`h007<4000L4@00c0D00500001]0000f@0002D0000<0000
1P0005@0001D00002@l000P5001X3`00b`D000400028Q`M0dDD7@0T?002d1@000@0004`000040000
2`h007<4000L4@00c0D00500000b0200H00002D0000<0000100005@0001D0000J@l000P5003;3`00
b`D000400028Q`M0dDD7@6T?002d1@000@0004`0000400002`h007<4000L4@00c0D00500000P0000
H`000280000<0000ooooodH0000X0000700004M4BD<2000041400?P4001P5@00/PD0000000160000
10400?P00015CDH[:T0002@0000H00000020?`00000000000020?`0000000000240:0Y@000280000
0A30f`00000J2000000005EEQD7o00000P000000045H00000A30f`00000100000P00000044400000
00000000000002110020?`000000000000000000000L00000A30f`<00000H0001@3fo`00003kooKo
0061004@`=/000000000o`Q02`</00008000004@`=/2000000000:_BR4D0X:Y4ZkZZAEF5ZT@00@00
5D0;0100000400002P00024000080000HP0000`000010000900002@00000080n000000000000080n
0000000000020000G`0003P000070000>0000000000h00000000000B0@0400000000000000000000
00000000000U0000300000L0000U0000300000<0000C000030000080001K0000C00001PA003o1000
FAD00:X5000200002@0000D000040000`4Ha5EaE;QELEG0E`4Ic5L16<AD3AilFJ4AB5@971A@3AilF
4`0000`0000100009@0000`0000000209@0000`000070020900002@0000008100000000000000810
0000000000020000:00000`0000700008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000
000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80003800001@D001L5002o1@00
000004H000040@00n00004E=AR/Z@000900001P00000080o000000000000080o000000000008@0`2
U00008P000014<3K000001`@00000000EEF5@Ol0000200000000@EP000014<3K0000004000020000
000@@@0000000000000000008440080o0000000000000000000001`000014<3K0`00001P00050?Ko
00000?_om_l00H400A30f`000000003o240=0b`0000P00000A30f`8000000000EEE@@eEU[4B[ZZ54
ZTZ/A001000E@0d0400000@0000<00008@0000P0001R000030000040000T000090000000P3d00000
00000000P3d0000000000080001O0000>00000L0000h0000000003P0000000000181010000000000
0000000000000000000002D0000<00001`0002D0000<00000`0001<0000<00000P0005/0001<0000
cP0000d5000?1@00]`D00080000900001@0000@0003n3:IEKTNJEFi7YEKn3;1FoPbVEF96je3>D1iF
I4IEFf96je0C000030000040000U000030000000080U0000300000L0080T000090000000P4400000
00000000P440000000000080000X0000300000L0000R000030000?oooom60000700001000015CDH[
140000`000000000AP0001@000080000AdA9@`<000160000:00001`00017A4U30P000:T4002k0@00
Va400?d900000000AP000:`0002P0000ADe6:bY0000T000060000000P3l0000000000000P3l00000
000000Q03P8l0000<000004@`=/0000040400000000004Q10000@@80000008100010@04@`=/00000
0000o`Q03`</00008000004@`=/4000004000;04`P6`1?H9U17f2I@A`P400@615D0?010000040000
3P00024000080000HP0000`000010000900002@00000080n000000000000080n0000000000020000
G`0003P000070000>0000000000h00000000000B0@040000000000000000000000000000000U0000
300000L0000U0000300000<0000C000030000080001K0000c0/00:L4002i0@00W1400?h9001l0000
K`8000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000P0000500001@0000D000050000
1@0000D0000500001@0000D0000500001@0000D0000500001@0000D0000500001@0000D000050000
1@0000D0000500001@0000D0001>AQl7QTDO1hI5k@I>A^d6CTHO1o147`LXA1l7:4C]1_14k@K`A1l7
TT<O1lY27`O:@^d6TT?]1Y937`Ld@Ql7K44O1fa1k@Hd@^d6=48O1mI07`L>@1l73T3]1]I0k@KF@1l7
N3lO1k0n7`N`?^d6N3o]1WPo7`LJ?Ql7DSdO1e8mk@HJ?^d66ShO1k`l7`Od>al7m3_]1[`lk@Jl?1l7
GS/O1iHj7`NF>^d6GS_]1Uhk7`L0>Ql7>3TO1cPik@H0>^d603XO1j8h7`OJ=al7fSO]1Z8hk@JR>1l7
A3LO1g`f7`Ml=^d6A3O]1T@g7`OV=Al77SDO1ahek@KV=Nd6iSDO1hPd7`O0<al7`3?]1XPdk@J8=1l7
:S<O1f8b7`MR<^d6:S?]1RXc7`O<<Al7134O1`@ak@K<<Nd6c34O1fh`7`NV;al7YRo]1Vh`k@I^<1l7
42lO1dP^7`M8;^d642o]1Q0_7`Nb;Al7jR`O1nX/k@Jb;Nd6/RdO1e@/7`N<:al7S2_]1U@/k@ID;1l7
mRXO1bhZ7`L^:^d6mR[]1_HZ7`NH:Al7d2PO1m0Xk@JH:Nd6V2TO1cXX7`Mb9al7LRO]1SXXk@Hj:1l7
g2HO1a@V7`LD9^d6g2K]1]`V7`Mn9Al7]R@O1kHTk@In9Nd6ORDO1b0T7`MH8al7F2?]1R0Tk@HP91l7
`R8O1oXQ7`Oj8Nd6`R;]1/8R7`MT8Al7W20O1i`Pk@IT8Nd6I24O1`HP7`Ln7al7?Qo]1PHPk@H681l7
Z1hO1n0M7`OP7Nd6Z1k]1ZPN7`M:7Al7PQ`O1h8Lk@I:7Nd6BQdO1n`K7`LT6al791_]1^`Kk@K/6al7
SQXO1lHI7`O66Nd6SQ[]1XhJ7`L`6Al7J1PO1fPHk@H`6Nd6<1TO1m8G7`L:5al72QO]1]8Gk@KB5al7
M1HO1j`E7`N/5Nd6M1K]1W@F7`LF5Al7CQ@O1dhDk@HF5Nd65QDO1kPC7`O`4Ql7l1;]1[PCk@Jh4al7
ea9Z1mLB<PRU4S88YA9Z1mLBJPOG4/P8ea:@2JDBT0VU4/P8ea;82=LB9P[G4^h:YA;^2ZDB9P[G4RH:
ea:42mLBC0bU4T`<YA:42mLBQ0_G4^8<ea:Z3JDBZPfU4^8<ea;R3=LB@0kG4PP?YA883jDB@0kG4T0>
ea:N3mLBIQ2U4VH@YA:N3mLBWPoG4_`@ea;44JDBa16U4_`@ea;l4=LBFQ;G4R8CYA8R4jDBFQ;G4UXB
ea:h4mLBP1BU4X0DYA:h4mLB^1?G4QHEea;N5JDBgQFU4QHEea8F5MLBM1KG4S`GYA8l5jDBM1KG4W@F
ea;B5mLBVQRU4YXHYA;B5mLBdQOG4S0Iea;h6JDBn1VU4S0Iea8`6MLBSQ[G4UHKYA9F6jDBSQ[G4XhJ
ea;/6mLB]1bU4[@LYA;/6mLBk1_G4TXMea8B7ZDB4QjU4TXMea9:7MLBZ1kG4W0OYA9`7jDBZ1kG4ZPN
ea868=LBcR2U4/hPYA868=LB1R3G4V@Qea8/8ZDB;2:U4V@Qea9T8MLB`R;G4XXSYA::8jDB`R;G4/8R
ea8P9=LBj2BU4^PTYA8P9=LB82CG4WhUea969ZDBARJU4WhUea9n9MLBg2KG4Z@WYA:T9jDBg2KG4]`V
8Q>m9nXC_BOZ4nlW8Q?_9b8C_BN05;dWB1Fm9dPEkbN05>lWP1Bm9mhE_BNV5[dWYQK_9mhEkbON5KdW
?1Nm9`@H_BL46>lW?1O_9c`G_BNJ6;dWHQVm9f8IkbNJ6>lWVQRm9oPI_BO06[dW`1[_9oPIkbOh6KdW
EQ^m9ahL_BLN7>lWEQ__9eHK_BNd7;dWO1fm9g`MkbNd7>lW]1bm9a8N_BOJ7[dWfQk_9a8NkbLB7[dW
L1nm9cPP_BLh8>lWL1o_9g0O_BO>8;dWUR6m9iHQkbO>8>lWcR2m9b`R_BOd8[dWm2;_9b`RkbL/8[dW
RR>m9e8T_BMB9>lWRR?_9hXS_BOX9;dW/2Fm9k0UkbOX9>lWj2Bm9dHV_BL>9kdW3RO_9dHVkbM69[dW
Y2Nm9f`X_BM/:>lWY2O_9j@W_BL2:KdWbRVm9lXYkbL2:NlW0RVm9f0Z_BLX:kdW:2__9f0ZkbMP:[dW
_R^m9hH/_BN6;>lW_R__9kh[_BLL;KdWi2fm9n@]kbLL;NlW72fm9gX^_BM2;kdW@Ro_9gX^kbMj;[dW
f2nm9j0`_BNP<>lWf2o_9mP__BLf<KdWoS6m9ohakbLf<NlW=S6m9i@b_BML<kdWG3?_9i@bkbND<[dW
lS>m9kXd_BNj=>lWlS?_9o8c_BM@=KdW63Jm9aPfkbM@=NlWD3Fm9jhf_BMf=kdWMSO_9jhfkbN^=[dW
33Rm9m@h_BOD>>lW33S_9``h_BMZ>KdW<SZm9c8jkbMZ>NlWJSVm9lPj_BN@>kdWT3__9lPjkbO8>[dW
9Sbm9nhl_BO^?>lW9Sc_9bHl_BN4?KdWC3jm9d`nkbN4?NlWQ3fm9n8n_BNZ?kdWZSo_9n8nkbOR?[dW
@42m9`Q1_BL8@NlW@43_9d10_BNN@KdWIT:m9fI2kbNN@NlWWT6m9oa2_BO4@kdWa4?_9oa2kbOl@[dW
FTBm9b95_BLRANlWFTC_9eY4_BNhAKdWCTJm9cE6eRLeAZ@WIdJT9fM6kbNhANlW^4Fm9cE63RLeATHV
IdI69VM63RLeAPhW=DJ`9CE6j2AWA^PTIdJ`9CE6/2DeAU8T=DJ:8fM6RR=WAU8T=DIB93E6m28eAR`R
IdH/8VM6m28eA_@R=DJF8CE6cR1WA/hPIdJF8CE6UR4eASPP=DI`7fM6L1mWASPP=DHh83E6fQheAQ8N
IdHB7VM6fQheA]XN=DIl7CE6]1aWA[@LIdIl7CE6O1deAQhL=DIF6fM6EQ]WAQhL=DHN73E6`1XeA_PI
IdKh6FM6`1XeA/0J=DIR6CE6VQQWAYXHIdIR6CE6HQTeAP@H=DHl5fM6?1MWAP@H=DH463E6YQHeA]hE
IdKN5FM6YQHeAZHF=DI85CE6P1AWAX0DIdI85CE6B1DeA^XC=DHR4fM68Q=WA^XC=DKZ4cE6S18eA/@A
IdK44FM6S18eAX`B=DH^4CE6IQ1WAVH@IdH^4CE6;Q4eA]0?=DH83fM620mWA]0?=DK@3cE6LPheAZX=
IdJZ3FM6LPheAW8>=DHD3CE6C0aWAT`<IdHD3CE650deA[H;=DK^2VM6kPYWA[H;=DJf2cE6F0XeAY09
IdJ@2FM6F0XeAUP:=DKj23E6<PQWAS88IdKj23E6nPPeAY`7=DH61fM61PMWAY`7=DJL1a<0000<0000
0@0002D0000<00000000P2D0000<00001`00P2@0000T00000020@000000000000020@00000000000
0P0002P0000<00001`000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000
500000P00017A4U30`0004H0000X0000700004M4BD<20000n@P000D5001:3@00`@D0000000160000
I04005P10015CDH[:T0002@0000H00000020?`00000000000020?`0000000000240@0_@0003X0000
0A30f`00000N6000000005EEQD7o0000o`00008000000011F000004@`=/000000@00008000000111
0000000000000000000P@@00P3l0000000000000000000007000004@`=/30000060000D0m_l00000
noofo`01P@1H00000A30f`00000100000P0000004440000000000000000002110020?`0000000000
00000000000L00000A30f`<00000H0001@3fo`00003kooKo0061004@`=/000000000o`Q04@</0000
8000004@`=/2000000000:/Z44D0P:a4ZoYCAJ]:[4@00@005D0A0100000400004000024000080000
HP0000`000010000900002@00000000n000000000000000n0000000000020000G`0003P000070000
>0000000000h00000000000B0@080000000000000000000000000000000U0000300000L0000U0000
300000<0000C000030000080001K0000H0000009000=1@00@@d00;T5000300003@0000D000040000
10000<9<f2Y:ILhZBVED:l9<GB_2C=PZB4fe;A9872]6CH0XB4fe;L=TMbSjJ@l[aFB/;L=TMbPC0000
30000040000U000030000000080U0000300000L0080T000090000000044000000000000004400000
00000080000X0000300000L0000R000030000?oooom60000700001000015CDH[140000`000000000
AP0001@000080000AdA9@`<000160000:00001`00017A4U30P00048:002J0`00W0`005d500000000
AP0001@000080000AdA9@`<0000Q0000200001h0000H0000U@X00=L30018300080D00180000<0000
0@0002D0000<00000P0001P0000<000000000U@0001D0000U@X00><300182`007`D000400028Q`M0
dDD7@;/:003^10000@0004`000040000U@X00=L30018300080D00500001V0000D`0002D0000<0000
1P0005@0001D00003P/006`4001]2`007`D000400028Q`M0dDD7@0h;000H1@000@0004`000040000
U@X00=L30018300080D00500000c0000H00002D0000<00001@0005@0001D0000KP/00><3003e2`00
7`D000400028Q`M0dDD7@6h;003^10000@0004`000040000U@X00=L30018300080D00500000P0000
R0000280000<0000ooooodH0000X0000700004M4BD<20000:A8008<300235000APD0000000160000
500000P00017A4U30`000240000800007P0001P0001l4P00`0<0030D00081@004P0000`000010000
9@0000`000020000600000`000000002E00005@0001l4P00c0<002lC00071@000@0008R71d3AA@M0
XQ800=L400010000C00000@0001l4P00`0<0030D00081@00D00006H0001C00009@0000`000060000
E00005@0003e4P00E@@005@C00071@000@0008R71d3AA@M0mA80004500010000C00000@0001l4P00
`0<0030D00081@00D0000380IP1P00009@0000`000050000E00005@0001E4`00c0<00=`C00071@00
0@0008R71d3AA@M0EA<00=L400010000C00000@0001l4P00`0<0030D00081@00D000020000280000
8P0000`0003oooooAP0002P0000L0000AdA9@`8000310@00TP<001/4001E1@00000004H0000D0000
200004M4BD<300008@0000P0000N0000600001@2003?0`00b0<001L5000B000030000040000U0000
30000080000H000030000000009D0000E00001@2003K0`00a`8001H500010000R8L7@=551d0j0P00
iP@00040001<0000100001@2003?0`00b0<001L5001@0000IP0005<0000U0000300000H0001D0000
E00008d2001T1000k08001H500010000R8L7@=551d2=0P0040D00040001<0000100001@2003?0`00
b0<001L5001@0000<@000600000U0000300000D0001D0000E0000>d2003K0`00M0<001H500010000
R8L7@=551d3]0P00iP@00040001<0000100001@2003?0`00b0<001L5001@0000801d08P0000R0000
30000?oooom60000:00001`00017A4U30P0003DA000f1P00B14003D900000000AP000:@0002H0000
ADe6:bY0000T000060000000P3l0000000000000P3l00000000000Q04P8d0000:000004@`=/00000
60000000001EEHE10P00000004414<3K000000000?l8@1<3;000020000014<3K0P000000001ElHU5
ENG7A03hRDEEaA95004001E04`0@000010000180000Q000020000680000<00000@0002@0000T0000
0020?P00000000000020?P00000000000P0005l0000h00001`0003P000000000>000000000000P40
@`0000000000000000000000000000009@0000`0000700009@0000`000050020E`0002@0000d4@00
=@H004PA000f2@000P000?M4naSjA;0T9@0000`0000700209@0000`000000020900002@000000810
00000000000008100000000000020000:00000`0000700008P0000`0003oooooAP0001`0000@0000
ADe6:`A0000<0000000004H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80000:1@00
4`H001d5000A2@00000004H0002T0000V00004E=AR/Z@000900001P00000080o000000000000080o
000000000008@1@2=00002P000014<3K000001P000000000EEF5@@80000000110A30f`000000003o
240E0b`0000P00000A30f`8000000000EFFRA:]Z`d@0P:9408P@A@01000E@1D0400000@0000D0000
8@0000P0001R000030000040000T00009000000003h000000000000003h0000000000080001O0000
>00000L0000h0000000003P000000000008108D0000000000000000000000000000002D0000<0000
1`0002D0000<00001@00P5L0000T00002@D00146000M1@004PT00080002F:=L`W2Q0B2D0000<0000
1`00P2D0000<00000000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<0000
1`000280000<0000ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U3
0`0004H0000X0000700004M4BD<20000@0h0044800114@00o0P000000016000010400?P00015CDH[
:T0002@0000H00000020?`00000000000020?`0000000000240F0Y@0002800000A30f`00000L4000
000005EEQD7o00000P000000045H00000A30f`00000100000P000000444000000000000000000211
0020?`000000000000000000000L00000A30f`<00000H0001@3fo`00003kooKo0061004@`=/00000
0000o`Q05`</00008000004@`=/2000000000:^:I4D0n0U5E[F9AJ_Z2DD00@005D0G010000040000
5P00024000080000HP0000`000010000900002@00000080n000000000000080n0000000000020000
G`0003P000070000>0000000000h00000000000B0@040000000000000000000000000000000U0000
300000L0000U0000300000<0000C000030000080001K0000C00004H>00192000>1400?@800020000
2@0000D0000400008CUK8X52F2:1@Y/R8CVN8R4iFb8n@RdQfDAi8Sm2ab<n@RdQ4`0000`000010000
9@0000`0000000209@0000`000070020900002@00000081000000000000008100000000000020000
:00000`0000700008P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000
200004M4BD<30000AP0002P0000L0000AdA9@`8000303@00n@H00=`A003;2000000004H0000D0000
200004M4BD<300008@0000P0000N0000600001<>000f1`00RA4008d8000B000030000040000U0000
30000080000H000030000000009D0000E00003T>00121`00_@h008`800010000R8L7@=551d0i3P00
C@P00040001<0000100001<>000f1`00RA4008d8001@0000MP0008D0000U0000300000@0001D0000
E0000;h>003;1`007@l008`800010000R8L7@=551d2n3P00M`P00040001<0000100001<>000f1`00
RA4008d8001@0000<P000600000U000030000080001D0000E00001/?00121`00J0l008`800010000
R8L7@=551d0N3`00C@P00040001<0000100001<>000f1`00RA4008d8001@0000;00004/0001D0000
E00005h?00121`00k@l008`800010000R8L7@=551d1Y3`00C@P00040001<0000100001<>000f1`00
RA4008d8001@0000N00008D0000U0000300000H0001D0000E0000>h?003;1`00CA0008`800010000
R8L7@=551d3^3`00M`P00040001<0000100001<>000f1`00RA4008d8001@0000<P000600000U0000
300000D0001D0000E00004h@00121`00eA0008`800010000R8L7@=551d1>4000C@P00040001<0000
100001<>000f1`00RA4008d8001@0000800008P0000R000030000?oooom60000:00001`00017A4U3
0P000185001220004PP00?d800000000AP0000@1003h0000ADe6:bY0000T000060000000P3l00000
00000000P3l00000000000Q060:D0000R000004@`=/000006PP00000001EEHE1o`00008000000011
F000004@`=/000000@000080000001110000000000000000000P@@00P3l000000000000000000000
7000004@`=/30000060000D0m_l00000noofo`01P@014<3K000000000?l8@1T3;000020000014<3K
0P0000000000L:=40?P9A@2H04F[jPU5004001E06@0@0000100001P0000Q000020000680000<0000
0@0002@0000T00000000?P00000000000000?P00000000000P0005l0000h00001`0003P000000000
>000000000004P40200000000000000000000000000000009@0000`0000700009@0000`000030000
4`0000`000020000F`0004`0000I1@00BPP000/8003d20000P0000T000050000100008P]]4A8@:m4
BD0dAHT]>TF8;KA43bjBAmPXn4@=;Ua23bjBAa<0000<00000@0002D0000<00000000P2D0000<0000
1`00P2@0000T00000000@@00000000000000@@00000000000P0002P0000<00001`000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000QPD00?T6002R2@00b`P0000000160000500000P00017A4U30`00024000080000
7P0001P0003J1@00=PL004l9002=20004P0000`0000100009@0000`000020000600000`000000002
E00005@0003o1@00@PL008<6002<20000@0008R71d3AA@M0o`D004d800010000C00000@0003J1@00
=PL004l9002=2000D00007H0002500009@0000`000040000E00005@000241P00b`L00><6002<2000
0@0008R71d3AA@M0Q0H007L800010000C00000@0003J1@00=PL004l9002=2000D0000340001P0000
9@0000`000020000E00005@0003Q1P00@PL002h7002<20000@0008R71d3AA@M0i0H004d800010000
C00000@0003J1@00=PL004l9002=2000D00002`0001;0000E00005@0000T1`00@PL00;<7002<2000
0@0008R71d3AA@M0;`L004d800010000C00000@0003J1@00=PL004l9002=2000D00007P000250000
9@0000`000060000E00005@0002d1`00b`L001<8002<20000@0008R71d3AA@M0]0L007L800010000
C00000@0003J1@00=PL004l9002=2000D0000340001P00009@0000`000050000E00005@0000D2000
@PL009/8002<20000@0008R71d3AA@M050P004d800010000C00000@0003J1@00=PL004l9002=2000
D0000200002800008P0000`0003oooooAP0002P0000L0000AdA9@`80000I2`00k@T002`;003/3000
000004H0002T0000V00004E=AR/Z@000900001P00000080o000000000000080o000000000008@1X2
=00002P000014<3K000001P000000000EEF5@@80000000110A30f`000000003o240K0b`0000P0000
0A30f`8000000000020bA@1P7dEE;C95Zc9>A@01000E@1/0400000@0000J00008@0000P0001R0000
30000040000T00009000000003h000000000000003h0000000000080001O0000>00000L0000h0000
000003P000000000008108D0000000000000000000000000000002D0000<00001`0002D0000<0000
1@00P5L0000T000060/00>`9000/2`00k@`00080000<FJa?4eTFIbD0000<00001`00P2D0000<0000
0000P2@0000T00000000@@00000000000000@@00000000000P0002P0000<00001`000280000<0000
ooooodH0000L0000400004E=AR/4@0003000000000160000500000P00017A4U30`0004H0000X0000
700004M4BD<20000:`P00?4;000/2`00Z``000000016000010400?P00015CDH[:T0002@0000H0000
0020?`00000000000020?`0000000000240L0Y@0002800000A30f`00000L4000000005EEQD7o0000
0P000000045H00000A30f`00000100000P0000004440000000000000000002110020?`0000000000
00000000000L00000A30f`<00000H0001@3fo`00003kooKo0061004@`=/000000000o`Q07@</0000
8000004@`=/20000000000100dEEkDA5020bA@3PA4D00@005D0M0100000400007000024000080000
HP0000`000010000900002@00000000n000000000000000n0000000000020000G`0003P000070000
>0000000000h00000000000B0@080000000000000000000000000000000U0000300000L0000U0000
300000<0000C000030000080001K0000C0000388003h2`008`/00:<<000200002@0000D000040000
W44`HUaD:f9ME;1RWD6fHYa1<6;FDm=O35U/H]QC2FGFDm=O4`0000`0000100009@0000`000000020
9@0000`000070020900002@00000001100000000000000110000000000020000:00000`000070000
8P0000`0003oooooAP0001`0000@0000ADe6:`A0000<0000000004H0000D0000200004M4BD<30000
AP0002P0000L0000AdA9@`8000071`004@X004l<001?3000000004H0000D0000200004M4BD<30000
8@0000P0000N0000600005X7001>2P00o0/0014<000B000030000040000U000030000080000H0000
30000000009D0000E0000807001J2P0010P00:D;00010000R8L7@=551d201`00I@/00040001<0000
100005X7001>2P00o0/0014<001@0000MP0008D0000U0000300000@0001D0000E00000D8003S2P00
F@P00;L;00010000R8L7@=551d052000S`/00040001<0000100005X7001>2P00o0/0014<001@0000
H`0005D0000U0000300000@0001D0000E00005H8003S2P00_`P00;L;00010000R8L7@=551d1J2000
S`/00040001<0000100005X7001>2P00o0/0014<001@0000I`000600000U000030000080001D0000
E0000;L8001J2P0010T00:D;00010000R8L7@=551d2j2000I@/00040001<0000100005X7001>2P00
o0/0014<001@0000;00004/0001D0000E0000?X8001J2P00R@T00:D;00010000R8L7@=551d052@00
I@/00040001<0000100005X7001>2P00o0/0014<001@0000N00008D0000U0000300000H0001D0000
F00008X9003S2P00?PX00;T;00010000R8L7@=551d2:2@00S`/00080001<0000100005X7001>2P00
o0/0014<001@0000H`1W05D0001P00009@0000`000050000E00005@0000o2P00FPX00<H:002U2`00
0@0008R71d3AA@M0?`X006D;00010000C00000@0001J1`00CPX00?`;000A3000D000020000280000
8P0000`0003ooooo9@0000`0000>0020AP0003@0000X0000ADe6:bY0000T000060000000P3l00020
0000P000P3l000200000P24000080000HP0000`000010000C00006@0000F0000T040014F00083@00
5P000901003l5@00N@/002T0ZP00000000000000P3l0000000000000P3l000000000000000000000
000000000000000000000280000<0000ooooodH0000L0000400004E=AR/2@00030000000000>0000
50000000000@00005000
\>"], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6306735361976786`*^9},
 ImageSize->{364., 214.48699999999997`},
 ImageMargins->{{20, 0}, {0, 0}}],

Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0000E@0@000?@00018o_ooB?koohl2003G0@00
00000000002a7@00J`@00215CDH00040D0D003D000020000@`0006`000000000X0D008@3003l0@00
?P40000000000000000006301`0lf0@0B@1^06/0L`1S0640L01U0200<00^03@0>00^0380801b03T0
>00a03T0800X0440M@1W0200<@0d0200<P0`0340<@0Y0000J@1^06/0L`1S0640L01U02d0H`1/06T0
L01R06l0H@1b06@0;@1U07P0L01_0780M00^06D0K@1V000000000140000<0000200000T0000@0000
/Ad006/4000;000040000=L0000O0000AP0002P0000L0000Df=bIFE^?C4d=31h>C0`L7P/83D`>7Pc
<CQ]KDH0000/00007P0004AbHGMYKVLm<2h`N30^<71h;20]<2h`N2d`;S1]K@00G`0003P000010000
>0000000000h00000000000R0@0Z0000000000000000000000000000000U000030000040000j0000
300001X1000k0000200001/0000@0000DAL001H0000f000040000>HL000F0000F00002P000000000
00000?oooooooooo0`0004XM5P2K7FL0Vag<03H0000@0000Vad009l3001H0000:000000000000000
ooooooooool30000Vad314XME0CV75@4=P000100001A5`00E0@005P0000X000000000000003ooooo
ooooo`<0003/5U@4VaH319/FW`<f0000400009/F003<0000F00002P00000000000000?oooooooooo
0`0009/FI`3/5QH0DALF03d000080000?00000P00010000060000>_noom8o_ooS`800=L1000U0000
300000L0080X000030000040001O0000>0000040000h0000000003P000000000028102X000000000
0000000000000000000002D0000<00000@0003X0000<00006P4003/0000800006`000100003;0000
5`0003H0000@0000H0H001L0001H0000:000000000000000ooooooooool30000a0HG01D7J00E1ld0
=P000100000E1`00X0<005P0000X000000000000003oooooooooo`<0000E1`D4a0IF1606EP@f0000
40000</0001F1000F00002P00000000000000?oooooooooo0`0006H0EP@E00D45@2P0cH0000@0000
5@000<d0001H0000:000000000000000ooooooooool300005@1X06H05`3;01L0?@0000P0000l0000
20000400000H0000B?koodSnooo/0@00e`4002D0000<00001`00P2P0000<00000@0005l000100000
0@00040000000000@000000000078P409@0000000000000000000080002G0000U`000000000U0000
30000040000j0000300001X1000k0000200001/0000@0000D`L002`2000f00004000090F000/0P00
?00000P000100000600008gnoomWo_ooB`800;L1000U0000300000L0080X000030000040000>0000
50000000000@00005000
\>"], "Graphics",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.63422828855049*^9},
 ImageSize->{287, 42},
 ImageMargins->{{64, 0}, {0, 1}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Mechanic\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<M2load1D\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<An inertia load with spring and damper\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentQ\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of FLuid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.503905077842648*^9, 3.503905079842648*^9}, {
   3.5039103076641607`*^9, 3.5039103985397425`*^9}, {3.5039164662834997`*^9, 
   3.5039164750178747`*^9}, {3.5039165143772497`*^9, 
   3.5039165189397497`*^9}, {3.5041051675625*^9, 3.504105226359375*^9}, {
   3.507570546125*^9, 3.507570569546875*^9}, {3.507570601046875*^9, 
   3.50757067696875*^9}, 3.507796401609375*^9, {3.507887022343302*^9, 
   3.507887057967846*^9}, {3.5078871702320337`*^9, 3.507887175028847*^9}, {
   3.5082235454098396`*^9, 3.5082235597692146`*^9}, 3.5082237305660896`*^9, {
   3.512921352515625*^9, 3.512921388578125*^9}, 3.513861419*^9, 
   3.5226043241875*^9, 3.525534334828125*^9, 3.533225112109375*^9, {
   3.535557679125*^9, 3.5355576933125*^9}, 3.571933669207423*^9, {
   3.630671868243915*^9, 3.630671885492958*^9}, 3.6306735361976786`*^9, 
   3.6306736563751345`*^9}],

Cell[BoxData[
 RowBox[{"ResetComponentVariables", "[", "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.5226043241875*^9, 3.525534334828125*^9, 
  3.535557679125*^9, 3.571933669207423*^9, 3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "m1", ",", "1000.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Inertia1\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "m2", ",", "1000.", ",", "double", ",", "\"\<kg\>\"", ",", 
       "\"\<Inertia2\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "bL", ",", "10.", ",", "double", ",", "\"\<Ns/m\>\"", ",", 
       "\"\<Visc. friction coeff.\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "fc", ",", "10.", ",", "double", ",", "\"\<N\>\"", ",", 
       "\"\<Dry friction (+/-)\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "bfc", ",", "1.", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Numerical friction factor.\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xpmin", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Limitation on stroke xp (-x3)\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xpmax", ",", "1.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<Limitation on stroke xp (-x3)\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.519016849310559*^9, 3.5190168493261824`*^9}, 
   3.5226043241875*^9, 3.525534334828125*^9, 3.535557679125*^9, {
   3.571932261034711*^9, 3.5719322760731373`*^9}, 3.571933669207423*^9, {
   3.63067194784608*^9, 3.630671984187134*^9}, {3.630673202222995*^9, 
   3.630673222815025*^9}, 3.6306735361976786`*^9, {3.630688305248836*^9, 
   3.6306883150008497`*^9}, {3.630688379372997*^9, 3.6306883802929983`*^9}, {
   3.63072751559464*^9, 3.63072754436868*^9}, {3.630727640928857*^9, 
   3.6307276807269135`*^9}, 3.63422880046477*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "  ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "vt", ",", "0.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<cg speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "xt", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<cg position\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6306732253790293`*^9, 3.6306732992581396`*^9}, 
   3.6306735361976786`*^9, 3.630673777045425*^9, {3.630685614934392*^9, 
   3.630685616545394*^9}, {3.630727099085046*^9, 3.630727114732068*^9}, {
   3.630727163983137*^9, 3.630727169425145*^9}, 3.634228944399002*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"MechanicQnode", "[", 
      RowBox[{"m1", ",", "0.", ",", "\"\<mechanical node 1\>\""}], "]"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"MechanicQnode", "[", 
      RowBox[{"m2", ",", "0.", ",", "\"\<mechanical node 2\>\""}], "]"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"MechanicQnode", "[", 
      RowBox[{"m3", ",", "0.", ",", "\"\<mechanical node 3\>\""}], "]"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51901685320086*^9, 3.519016853216484*^9}, {
   3.521913885921875*^9, 3.521913887859375*^9}, 3.5226043241875*^9, 
   3.525534334828125*^9, 3.535557679125*^9, {3.5719322782727413`*^9, 
   3.5719322851523533`*^9}, 3.571933669207423*^9, {3.63067198853714*^9, 
   3.630671996372151*^9}, 3.6306720281201982`*^9, 3.6306735361976786`*^9, 
   3.6342278267480764`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mt", ":=", 
   RowBox[{"m1", "+", "m2"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"m1", " ", "s", " ", "vm1"}], "\[Equal]", 
      RowBox[{"fm3", "-", "fm1"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"m2", " ", "s", " ", "vm2"}], "==", 
      RowBox[{"fm3", "-", "fm2"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", "vm3"}], "==", 
      RowBox[{"(", 
       RowBox[{"vm1", "+", "vm2"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mt", " ", "s", " ", "vt"}], "==", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "m1"}], " ", "s", " ", "vm1"}], "+", 
        RowBox[{"m2", " ", "s", "  ", "vm2"}]}], ")"}]}]}], "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6306721436643696`*^9, 3.6306721724244127`*^9}, {
   3.630672357409688*^9, 3.630672375195713*^9}, 3.6306724930099087`*^9, {
   3.630672542561982*^9, 3.6306725645000134`*^9}, 3.6306735361976786`*^9, {
   3.630687106374585*^9, 3.6306871248836117`*^9}}],

Cell["Solving for the variables vm1, vm2, vm3 and vt yields:", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.6306735361976786`*^9, {3.634230807594571*^9, 3.634230843847645*^9}}],

Cell[BoxData[
 RowBox[{"seq", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{"eq", ",", 
    RowBox[{"{", 
     RowBox[{"vm1", ",", "vm2", ",", "vm3", ",", "vt"}], "}"}]}], 
   "]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6306723438626676`*^9, 3.6306723835097256`*^9}, 
   3.630672498429916*^9, {3.630672571934026*^9, 3.630672578221035*^9}, 
   3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vm1", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"fm1", "-", "fm3"}], 
       RowBox[{"m1", " ", "s"}]]}]}], ",", 
    RowBox[{"vm2", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"fm2", "-", "fm3"}], 
       RowBox[{"m2", " ", "s"}]]}]}], ",", 
    RowBox[{"vm3", "\[Rule]", 
     RowBox[{
      FractionBox[
       RowBox[{"fm1", "-", "fm3"}], 
       RowBox[{"m1", " ", "s"}]], "+", 
      FractionBox[
       RowBox[{"fm2", "-", "fm3"}], 
       RowBox[{"m2", " ", "s"}]]}]}], ",", 
    RowBox[{"vt", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "fm1"}], "+", "fm2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m1", "+", "m2"}], ")"}], " ", "s"}]]}]}]}], "}"}], 
  "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.630672336771658*^9, 3.6306723880307326`*^9, 3.630672503913924*^9, 
   3.630672584402044*^9, {3.6306735361976786`*^9, 3.6306735566957083`*^9}, 
   3.6306736673321533`*^9, 3.6306737816354313`*^9, {3.630673923334696*^9, 
   3.6306739315357075`*^9}, 3.630674318355279*^9, 3.6306744071594114`*^9, 
   3.630674831070035*^9, 3.6306748692980905`*^9, 3.6306749295791793`*^9, {
   3.630674970108238*^9, 3.6306750006042833`*^9}, 3.6306753429563203`*^9, 
   3.6306850760930395`*^9, 3.630685356289751*^9, 3.6306860776130705`*^9, 
   3.6306877679465275`*^9, 3.6306883216918592`*^9, 3.630688383043002*^9, 
   3.6307276950799336`*^9, 3.6342282133291874`*^9, 3.6342282922487016`*^9, 
   3.634228680465906*^9, 3.6342287182180653`*^9, 3.6342288246731544`*^9, 
   3.6342289493732867`*^9, 3.6342298931292667`*^9, 3.6342301488068905`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "vm3"}], "==", 
      RowBox[{"(", 
       RowBox[{"vm1", "+", "vm2"}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mt", " ", "s", " ", "vt"}], "==", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "m1"}], " ", "s", " ", "vm1"}], "+", 
        RowBox[{"m2", " ", "s", "  ", "vm2"}]}], ")"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6306721436643696`*^9, 3.6306721724244127`*^9}, {
   3.630672357409688*^9, 3.630672375195713*^9}, 3.6306724930099087`*^9, {
   3.630672542561982*^9, 3.6306725645000134`*^9}, 3.630672681553186*^9, 
   3.6306735361976786`*^9, 3.634227058197118*^9}],

Cell[BoxData[
 RowBox[{"seq", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{"eq", ",", 
     RowBox[{"{", 
      RowBox[{"vm1", ",", "vm2"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.6306726927142024`*^9, 3.6306735361976786`*^9, {3.630687610740305*^9, 
   3.630687618293316*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vm1", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"m1", " ", "vt"}], "+", 
        RowBox[{"m2", " ", 
         RowBox[{"(", 
          RowBox[{"vm3", "+", "vt"}], ")"}]}]}], 
       RowBox[{"m1", "+", "m2"}]]}]}], ",", 
    RowBox[{"vm2", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"m2", " ", "vt"}], "+", 
       RowBox[{"m1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "vm3"}], "+", "vt"}], ")"}]}]}], 
      RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.6306726983322105`*^9, {3.6306735361976786`*^9, 3.630673556725708*^9}, 
   3.6306736673621535`*^9, 3.6306737816754313`*^9, {3.6306739233846955`*^9, 
   3.6306739315757074`*^9}, 3.630674318395279*^9, 3.630674407189411*^9, 
   3.630674831110035*^9, 3.63067486934809*^9, 3.6306749296191792`*^9, {
   3.630674970148238*^9, 3.6306750006342835`*^9}, 3.6306753429863205`*^9, 
   3.6306850761330395`*^9, 3.630685356329751*^9, 3.6306860776530704`*^9, 
   3.6306872949188523`*^9, 3.630687487930131*^9, 3.6306876190533166`*^9, 
   3.6306877679965277`*^9, 3.630688321721859*^9, 3.630688383073002*^9, 
   3.6307276951299334`*^9, 3.6342282133981915`*^9, 3.634228292292704*^9, 
   3.6342286805289097`*^9, 3.634228718278069*^9, 3.634228824720157*^9, 
   3.63422894943129*^9, 3.6342298931952705`*^9, 3.634230148867894*^9}],

Cell["\<\
Dry friction is modelled with a small linear region for low speeds for \
numerical reasons\
\>", "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6326806773038225`*^9, 3.632680720320283*^9}, 
   3.6326809028107214`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Bf", "=", 
   RowBox[{"bfc", 
    FractionBox[
     RowBox[{" ", 
      RowBox[{"2", " ", "m1", " ", "m2"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "m2"}], ")"}], "mTimestep"}]]}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.634227548946187*^9, 3.634227588472448*^9}, {
   3.6342276360661697`*^9, 3.6342276429775653`*^9}, 3.6342278624001155`*^9, {
   3.634229883378709*^9, 3.634229889082035*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fre", "=", 
   RowBox[{"limit", "[", 
    RowBox[{
     RowBox[{"Bf", " ", "vm3"}], ",", 
     RowBox[{"-", "fc"}], ",", "fc"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fm3e", "=", 
   RowBox[{"fm3", "+", "fre"}]}], ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6307272685932913`*^9, 3.630727341399394*^9}, {
   3.6307274112924924`*^9, 3.630727440556534*^9}, {3.6342275003844094`*^9, 
   3.6342275082588596`*^9}, 3.6342277077652707`*^9, 3.634227742971285*^9, 
   3.6342278624001155`*^9, {3.634229243133089*^9, 3.634229247730352*^9}, 
   3.634230121911352*^9, 3.634231130421036*^9}]
}, Open  ]],

Cell["The  system of equations is then :", "Text",
 CellChangeTimes->{{3.6342311356953373`*^9, 3.6342311552304544`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"vm1", "\[Equal]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"m2", " ", "vm3"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m1", "+", "m2"}], ")"}], " ", "vt"}]}], 
        RowBox[{"m1", "+", "m2"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"vm2", "\[Equal]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"m1", " ", "vm3"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m1", "+", "m2"}], ")"}], " ", "vt"}]}], 
        RowBox[{"m1", "+", "m2"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "vm3", "]"}], "==", " ", 
      RowBox[{
       FractionBox[
        RowBox[{"fm1", "-", "fm3e"}], "m1"], "+", 
       FractionBox[
        RowBox[{"fm2", "-", "fm3e"}], "m2"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", 
       RowBox[{"Der", "[", "xm3", "]"}], "]"}], "==", " ", 
      RowBox[{
       FractionBox[
        RowBox[{"fm1", "-", "fm3e"}], "m1"], "+", 
       FractionBox[
        RowBox[{"fm2", "-", "fm3e"}], "m2"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "vt", "]"}], "==", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"fm1", "-", "fm2"}], ")"}], 
       RowBox[{"m1", "+", "m2"}]]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Der", "[", "xt", "]"}], "\[Equal]", "vt"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.52191389025*^9, 3.521913899796875*^9}, 
   3.5226043241875*^9, 3.5253431853125*^9, {3.525344901234375*^9, 
   3.525344916140625*^9}, 3.53322190715625*^9, 3.535557679125*^9, {
   3.571932289520361*^9, 3.5719322940443687`*^9}, 3.571933669207423*^9, {
   3.6306727330462623`*^9, 3.6306728783774767`*^9}, {3.630672924303544*^9, 
   3.6306729262135468`*^9}, {3.6306729568195953`*^9, 3.63067300164666*^9}, {
   3.6306730653887935`*^9, 3.6306731257898817`*^9}, 3.6306735361976786`*^9, {
   3.6306739191516895`*^9, 3.6306739288557034`*^9}, 3.6306748646730833`*^9, {
   3.6306853059516783`*^9, 3.630685319313698*^9}, {3.6306853496087413`*^9, 
   3.630685351666744*^9}, {3.6307272554212723`*^9, 3.630727260032279*^9}, {
   3.634227963080874*^9, 3.6342279660290427`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemBoundaryEquations", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fm1", " ", "==", " ", 
      RowBox[{"cm1", " ", "-", " ", 
       RowBox[{"Zcm1", " ", "vm2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"fm2", " ", "==", " ", 
      RowBox[{"cm2", " ", "+", " ", 
       RowBox[{"Zcm2", " ", "vm2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"fm3", " ", "==", " ", 
      RowBox[{"cm3", " ", "+", " ", 
       RowBox[{"Zcm3", " ", "vm3"}]}]}]}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5190168632782354`*^9, 3.51901686329386*^9}, {
   3.52191390128125*^9, 3.52191391521875*^9}, {3.52194675112527*^9, 
   3.5219467526095877`*^9}, 3.5226043241875*^9, 3.525534334828125*^9, 
   3.535557679125*^9, {3.571932303513585*^9, 3.571932309659996*^9}, 
   3.571933669207423*^9, {3.6306722229014864`*^9, 3.630672259767542*^9}, 
   3.6306735361976786`*^9, 3.63067499784328*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "vm1", ",", "vm2", ",", "vm3", ",", "xm3", ",", "vt", ",", "xt", ",", " ",
      "fm1", ",", " ", "fm2", ",", " ", "fm3"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.522604324203125*^9, 3.525534334828125*^9, {3.5261037952044206`*^9, 
   3.5261037984857125`*^9}, 3.533154146171875*^9, {3.53555637615625*^9, 
   3.5355563779375*^9}, 3.535557679125*^9, 3.571933669207423*^9, {
   3.6306722686815557`*^9, 3.63067227141256*^9}, {3.6306729008285103`*^9, 
   3.6306729177525344`*^9}, {3.6306733228061743`*^9, 3.6306733405842*^9}, 
   3.6306735361976786`*^9, {3.6306853324607167`*^9, 3.6306853358207216`*^9}, {
   3.6342279699602675`*^9, 3.6342279726294203`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"xm1", "==", 
     RowBox[{"-", "xm2"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.51901688034019*^9, {3.521913926984375*^9, 3.521913928296875*^9}, 
   3.522604324203125*^9, 3.525534334828125*^9, 3.535557679125*^9, {
   3.5719323133260026`*^9, 3.5719323219060173`*^9}, 3.571933669207423*^9, 
   3.6306735361976786`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xm1", "\[Equal]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"m2", " ", "xm3"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m1", "+", "m2"}], ")"}], " ", "xt"}]}], 
        RowBox[{"m1", "+", "m2"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"xm2", "\[Equal]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"m1", " ", "xm3"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m1", "+", "m2"}], ")"}], " ", "xt"}]}], 
        RowBox[{"m1", "+", "m2"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"eqMassm1", "==", "m1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"eqMassm2", "==", "m2"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.519016887605582*^9, {3.5219138655625*^9, 3.52191387359375*^9}, {
   3.521913929390625*^9, 3.521913962359375*^9}, 3.522604324203125*^9, 
   3.525534334828125*^9, 3.535557679125*^9, {3.5719323268356266`*^9, 
   3.5719323434340553`*^9}, 3.571933669207423*^9, {3.6306730107626734`*^9, 
   3.630673026931697*^9}, {3.6306731429239078`*^9, 3.6306731764539576`*^9}, 
   3.6306735361976786`*^9, {3.6306850002619305`*^9, 3.630685060549016*^9}, {
   3.6306876463533554`*^9, 3.6306877276864705`*^9}, {3.6307271234730797`*^9, 
   3.630727143826109*^9}, {3.634227978289744*^9, 3.6342279791987963`*^9}, {
   3.634228697535883*^9, 3.6342287006420603`*^9}, {3.6342288647634473`*^9, 
   3.6342288912009597`*^9}, 3.6342289282270775`*^9, {3.6342309733680525`*^9, 
   3.63423100723999*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variable2Limits", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"xm3", ",", " ", "vm3", ",", " ", 
      RowBox[{"-", "xpmax"}], ",", 
      RowBox[{"-", "xpmin"}]}], "}"}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.525452677828125*^9, 3.535557679125*^9, 3.571933669207423*^9, {
   3.630673181894966*^9, 3.6306731835749683`*^9}, 3.6306735361976786`*^9, 
   3.630674402878405*^9, {3.6306753349782987`*^9, 3.6306753349782987`*^9}, {
   3.630688363194974*^9, 3.630688374007989*^9}, {3.630727567216713*^9, 
   3.630727581946774*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Compgen", "[", "file", "]"}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.5190168934960184`*^9, 3.522604324203125*^9, 
  3.525534334828125*^9, 3.535557679125*^9, 3.571933669207423*^9, 
  3.6306735361976786`*^9}]
}, Open  ]]
},
WindowSize->{755, 838},
WindowMargins->{{205, Automatic}, {Automatic, 15}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 447, 9, 111, "Section",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1029, 33, 327, 5, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[1359, 40, 973, 18, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[2335, 60, 216, 5, 30, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[2554, 67, 28024, 349, 229, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[30581, 418, 2087, 29, 51, "Graphics",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[32671, 449, 1686, 35, 172, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[34360, 486, 254, 4, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[34617, 492, 1994, 44, 192, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[36614, 538, 815, 18, 92, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[37432, 558, 1001, 20, 112, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[38436, 580, 192, 5, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[38631, 587, 1100, 27, 112, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[39734, 616, 216, 3, 30, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[39953, 621, 413, 10, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[40369, 633, 1748, 43, 48, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[42120, 678, 853, 21, 92, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[42976, 701, 376, 10, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[43355, 713, 1501, 34, 46, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[44859, 749, 263, 6, 30, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[45125, 757, 505, 13, 48, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[45633, 772, 685, 15, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[46333, 790, 120, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[46478, 795, 2457, 58, 287, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[48938, 855, 1013, 20, 92, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[49954, 877, 819, 15, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[50776, 894, 519, 11, 72, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[51298, 907, 1725, 38, 179, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[53026, 947, 643, 14, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[53672, 963, 293, 6, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
